SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00489.ls

Text File | 1995-10-13 | 1.6 KB | 73 lines

on enterFrame
  global girly
  namechange()
  preLoadCast(264)
  preLoadCast(254)
  preLoadCast(258)
  preLoadCast(119)
  preLoadCast(113)
  preLoadCast(117)
  set girly to 0
  puppetSprite(1, 0)
  puppetSprite(2, 0)
  puppetSprite(3, 0)
  puppetSprite(4, 0)
  puppetSprite(5, 0)
  repeat with x = 1 to 6
    if rollOver(x) then
      set the cursor of sprite x to -1
    end if
  end repeat
end

on exitFrame
  global gbRollW1, gbRollW2, gbRollW3, gbRollW4
  updateStage()
  repeat with x = 20 to 27
    if rollOver(x) then
      set the cursor of sprite x to [561, 562]
    end if
  end repeat
  if rollOver(14) and (gbRollW1 <> 1) then
    set the visible of sprite 25 to 1
    set gbRollW1 to 1
  else
    if not rollOver(14) and (gbRollW1 <> 0) then
      set the visible of sprite 25 to 0
      set gbRollW1 to 0
    end if
  end if
  if rollOver(16) and (gbRollW2 <> 1) then
    set the visible of sprite 26 to 1
    set gbRollW2 to 1
  else
    if not rollOver(16) and (gbRollW2 <> 0) then
      set the visible of sprite 26 to 0
      set gbRollW2 to 0
    end if
  end if
  if rollOver(17) and (gbRollW3 <> 1) then
    set the visible of sprite 27 to 1
    set gbRollW3 to 1
  else
    if not rollOver(17) and (gbRollW3 <> 0) then
      set the visible of sprite 27 to 0
      set gbRollW3 to 0
    end if
  end if
  if rollOver(15) and (gbRollW4 <> 1) then
    repeat with i = 20 to 22
      set the visible of sprite i to 1
    end repeat
    set gbRollW4 to 1
  else
    if not rollOver(15) and (gbRollW4 <> 0) then
      repeat with i = 20 to 22
        set the visible of sprite i to 0
      end repeat
      set gbRollW4 to 0
    end if
  end if
  go(the frame)
end